SuperHack

home *** CD-ROM | disk | FTP | other *** search

/ SuperHack / SuperHack CD.bin / CODING / VBASIC / KNOBVB25.ZIP / VB.ZIP / KTICS.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-17 | 23.9 KB | 732 lines

VERSION 2.00 Begin Form TicDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Knob Tic Properties Demo" ClientHeight = 4860 ClientLeft = 1575 ClientTop = 1440 ClientWidth = 8910 FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 5265 Left = 1515 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 324 ScaleMode = 3 'Pixel ScaleWidth = 594 Top = 1095 Width = 9030 Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Tic Label Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Index = 2 Left = 4560 TabIndex = 36 Top = 3735 Width = 4260 Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "TicLabel" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Left = 540 TabIndex = 3 Top = 300 Width = 1095 End Begin HScrollBar HScroll1 Height = 240 Index = 6 Left = 1800 Max = 140 TabIndex = 4 Top = 540 Width = 2000 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 6 Left = 3825 TabIndex = 7 Top = 555 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Tic Label Radius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 6 Left = 540 TabIndex = 8 Top = 555 Width = 1230 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Tic Radius Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 915 Index = 1 Left = 4560 TabIndex = 35 Top = 2820 Width = 4260 Begin HScrollBar HScroll1 Height = 240 Index = 3 Left = 1800 Max = 140 TabIndex = 10 Top = 315 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 4 Left = 1800 Max = 140 TabIndex = 11 Top = 555 Width = 2000 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 3 Left = 3810 TabIndex = 20 Top = 345 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Tic Inner Radius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 570 TabIndex = 21 Top = 330 Width = 1200 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 4 Left = 3810 TabIndex = 22 Top = 585 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Tic Outer Radius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 4 Left = 525 TabIndex = 23 Top = 585 Width = 1245 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Tic Value Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1500 Index = 0 Left = 4560 TabIndex = 34 Top = 1290 Width = 4260 Begin HScrollBar HScroll1 Height = 240 Index = 5 Left = 1785 Max = 20 TabIndex = 24 Top = 1095 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1785 Max = 100 TabIndex = 39 Top = 315 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1785 Max = 100 TabIndex = 38 Top = 555 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 2 Left = 1785 Max = 100 TabIndex = 37 Top = 840 Width = 2000 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 5 Left = 3795 TabIndex = 25 Top = 1125 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Tic Width:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 5 Left = 1035 TabIndex = 26 Top = 1110 Width = 705 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 0 Left = 3795 TabIndex = 45 Top = 345 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicStartValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 705 TabIndex = 44 Top = 315 Width = 1020 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicStopValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 720 TabIndex = 43 Top = 555 Width = 1005 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 1 Left = 3795 TabIndex = 42 Top = 585 Width = 180 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 2 Left = 3795 TabIndex = 41 Top = 870 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicDeltaValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 690 TabIndex = 40 Top = 840 Width = 1035 End End Begin KNOB Knob1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 1.15 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 4515 KnobColor = &H00800000& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.55 KnobSnap = 0 'False KnobSnapIncrement= 0 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 30 Left = 60 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 33 Top = 120 Value = 0 Width = 4380 XScale = 0 YScale = 0 ZLoad = KTICS.FRX:0000 End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Tic Color" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1005 Left = 7365 TabIndex = 32 Top = 30 Width = 1425 Begin Label Colors BackColor = &H00000000& Height = 225 Index = 0 Left = 120 TabIndex = 5 Top = 330 Width = 225 End Begin Label Colors BackColor = &H00808080& Height = 225 Index = 1 Left = 120 TabIndex = 6 Top = 570 Width = 225 End Begin Label Colors BackColor = &H00FFFFFF& Height = 225 Index = 2 Left = 360 TabIndex = 12 Top = 330 Width = 225 End Begin Label Colors BackColor = &H000000FF& Height = 225 Index = 3 Left = 360 TabIndex = 13 Top = 570 Width = 225 End Begin Label Colors BackColor = &H0000FF00& Height = 225 Index = 4 Left = 600 TabIndex = 14 Top = 330 Width = 225 End Begin Label Colors BackColor = &H0000FFFF& Height = 225 Index = 5 Left = 600 TabIndex = 15 Top = 570 Width = 225 End Begin Label Colors BackColor = &H00FF0000& Height = 225 Index = 6 Left = 840 TabIndex = 16 Top = 330 Width = 225 End Begin Label Colors BackColor = &H00FF00FF& Height = 225 Index = 7 Left = 840 TabIndex = 17 Top = 570 Width = 225 End Begin Label Colors BackColor = &H000080FF& Height = 225 Index = 8 Left = 1080 TabIndex = 18 Top = 330 Width = 225 End Begin Label Colors BackColor = &H00004040& Height = 225 Index = 9 Left = 1080 TabIndex = 19 Top = 570 Width = 225 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Tic Style" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1170 Left = 5820 TabIndex = 28 Top = 30 Width = 1380 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Circle" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 120 TabIndex = 9 TabStop = 0 'False Top = 870 Width = 1000 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Diamond" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 120 TabIndex = 31 TabStop = 0 'False Top = 660 Width = 1000 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Triangle" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 120 TabIndex = 30 TabStop = 0 'False Top = 450 Width = 1000 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Rectangle" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 120 TabIndex = 29 Top = 240 Value = -1 'True Width = 1000 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Tic ID" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1170 Left = 4560 TabIndex = 0 Top = 30 Width = 1035 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "2" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 330 TabIndex = 27 TabStop = 0 'False Top = 780 Width = 400 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "1" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 330 TabIndex = 2 TabStop = 0 'False Top = 540 Width = 400 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "0" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 330 TabIndex = 1 Top = 300 Value = -1 'True Width = 400 End End Sub Check1_Click () knob1.TicLabel = check1 End Sub Sub Colors_Click (Index As Integer) knob1.TicColor = colors(Index).BackColor End Sub Sub Form_Load () hscroll1(0) = knob1.TicStartValue hscroll1(1) = knob1.TicStopValue hscroll1(2) = knob1.TicDeltaValue hscroll1(3) = knob1.TicInnerRadius * 100 hscroll1(4) = knob1.TicOuterRadius * 100 hscroll1(5) = knob1.TicWidth * 100 hscroll1(6) = knob1.TicLabelRadius * 100 knob1.TicID = 1 option1(1) = True End Sub Sub HScroll1_Change (Index As Integer) Select Case Index Case 0 knob1.TicStartValue = hscroll1(0) label2(0) = hscroll1(0) Case 1 knob1.TicStopValue = hscroll1(1) label2(1) = hscroll1(1) Case 2 knob1.TicDeltaValue = hscroll1(2) label2(2) = hscroll1(2) Case 3 knob1.TicInnerRadius = hscroll1(3) / 100 label2(3) = hscroll1(3) / 100 Case 4 knob1.TicOuterRadius = hscroll1(4) / 100 label2(4) = hscroll1(4) / 100 Case 5 knob1.TicWidth = hscroll1(5) / 100 label2(5) = hscroll1(5) / 100 Case 6 knob1.TicLabelRadius = hscroll1(6) / 100 label2(6) = hscroll1(6) / 100 End Select End Sub Sub HScroll1_Scroll (Index As Integer) Select Case Index Case 0 knob1.TicStartValue = hscroll1(0) label2(0) = hscroll1(0) Case 1 knob1.TicStopValue = hscroll1(1) label2(1) = hscroll1(1) Case 2 knob1.TicDeltaValue = hscroll1(2) label2(2) = hscroll1(2) Case 3 knob1.TicInnerRadius = hscroll1(3) / 100 label2(3) = hscroll1(3) / 100 Case 4 knob1.TicOuterRadius = hscroll1(4) / 100 label2(4) = hscroll1(4) / 100 Case 5 knob1.TicWidth = hscroll1(5) / 100 label2(5) = hscroll1(5) / 100 Case 6 knob1.TicLabelRadius = hscroll1(6) / 100 label2(6) = hscroll1(6) / 100 End Select End Sub Sub Option1_Click (Index As Integer) knob1.TicID = Index hscroll1(0) = knob1.TicStartValue hscroll1(1) = knob1.TicStopValue hscroll1(2) = knob1.TicDeltaValue hscroll1(3) = knob1.TicInnerRadius * 100 hscroll1(4) = knob1.TicOuterRadius * 100 hscroll1(5) = knob1.TicWidth * 100 hscroll1(6) = knob1.TicLabelRadius * 100 option2(knob1.TicStyle) = True check1 = -knob1.TicLabel End Sub Sub Option2_Click (Index As Integer) knob1.TicStyle = Index End Sub